100
How can I programmatically clear the control's filter
' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub Expivot1_Click(ByVal sender As System.Object) Handles Expivot1.Click
	With Expivot1
		.ClearFilter()
	End With
End Sub

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "USA"
	.EndUpdate()
End With
99
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptPattern = "USA"
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible Or exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.EndUpdate()
End With
98
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarPromptVisible
	.FilterBarPromptPattern = "USA"
	.EndUpdate()
End With
97
Is it possible to prevent closing the control's filter bar, so it is always shown

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
	.FilterBarPromptVisible = exontrol.EXPIVOTLib.FilterBarVisibleEnum.exFilterBarVisible
	.EndUpdate()
End With
96
How can I find if the control is running in DPI mode
With Expivot1
	Debug.Print( .FormatABC("dpi = 1 ? `normal/stretch mode` : `dpi mode`") )
End With
95
If I connect it to a datasource, all works perfectly but the records that I see in the control is a little number of total of the recordset. I need to show all 60.000 rows of the recordset without click on the [...] button. It s possible to setting up this parameters
With Expivot1
	.DisplayPivotData = -1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
End With
94
How do I change the drop down filter icon/button (white)

With Expivot1
	.BeginUpdate()
	With .VisualAppearance
		.Add(2,"gBFLBCJwBAEHhEJAAEhABX8GACAADACAxSDEMQBQKAAzQFAYbhgHCGAAGQaBUgmFgAQhFcZQSKUOQTDKNYykCIRSDUJYkSZEIyjBI8ExXFqNACkGKwYgmNYiTLAcgAN" & _
"J0WBaGIZJ4gOT5fDKMoEDRRYADFCscwxJybQAqGQKKb+VgAVY/cTyBIAEQSKA0TDOQ5TSKWB4JPZQRBEbZMNBtBIUJquKaqShdQJCU5FdY3Xblez9P7AMBwLFEC4NQ8Y" & _
"NYuPhjR4dRTIMhvVAsUArFh8Zg9GZZFjmDIDT4ydBLTQwcyVIKnP5qOa6XbmPoCQDYKxZHYxPzVDa3axuL76dqCAT7XrXNy1TbNRrzQKfcJqfCbdw2YaDZLOOT3fjuI4" & _
"hhKaRzFAHJ+jYQ4xHuY4gHuGIXGeExqC8Tp6C+PoEm+G5ImycRgh0XwvDGa5rgOeoejyXwnFeQp2mkf5ClgBB9gCWIYAwfYAEKV58mkdwOggNArgOXY2EWLoDkKOA0mg" & _
"bhOGgZApgaSBIHWSYHSmbApgYThmESZYJkIeIkgeCpfliLIHgpMIcmUYYYmODAlg2SI4mWfRfGOEguDcCRjFYAJihCQhJBSDoRmONgKEcI4kFCEJhhOVYTmYnAlEAQhW" & _
"BMJYJGYWoWmWSR2F6F5lnkWAQhUAgpEieRWEuSYkjWGpmkmNhuhuZwJkYcocmaaYkjyEhngnUA6lEFAlAEgI=")
		.Add(1,"CP:2 -6 -4 2 4")
	End With
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background(exontrol.EXPIVOTLib.BackgroundPartEnum.exCursorHoverColumn,.BackColor)
	.HeaderVisible = True
	.HeaderHeight = 24
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DisplayFilterList = exontrol.EXPIVOTLib.FilterListEnum.exShowCheckBox Or exontrol.EXPIVOTLib.FilterListEnum.exSortItemsAsc
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible
	.EndUpdate()
End With
93
How do I change the drop down filter icon/button (black)

With Expivot1
	.BeginUpdate()
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQ" & _
"gmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYTh" & _
"dr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
	End With
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
	.set_Background32(exontrol.EXPIVOTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
	.BackColorHeader = Color.FromArgb(0,0,0)
	.ForeColorHeader = Color.FromArgb(255,255,255)
	.HeaderVisible = True
	.HeaderHeight = 22
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DisplayFilterList = exontrol.EXPIVOTLib.FilterListEnum.exShowCheckBox Or exontrol.EXPIVOTLib.FilterListEnum.exSortItemsAsc
	.EndUpdate()
End With
92
How do I prevent showing the control's BackColorAlternate property on empty / non-items part of the control

With Expivot1
	.BeginUpdate()
	.BackColorAlternate32 = &H7ff0f0f0
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "12"
	.PivotColumns = "sum(5)"
	.EndUpdate()
End With
91
How can I find out if the user clicks the grid's header
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Expivot1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Expivot1.MouseMoveEvent
	With Expivot1
		Debug.Print( "Type of ColumnFromPoint: " )
		Debug.Print( .get_ColumnFromPoint(-1,-1) )
		Debug.Print( " should not be VT_NULL" )
		Debug.Print( "Type of ValueFromPoint: " )
		Debug.Print( .get_ValueFromPoint(-1,-1) )
		Debug.Print( " should be VT_NULL" )
	End With
End Sub

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)"
End With
90
What should I set FormatPivotHeader to, to show it on the columns header only

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.FormatPivotHeader = "(iaggregate ? ( caption + ` <off -6><font ;6>(` + lower(caggregate) + ')</off></font>') : caption) + ( ( display=1 ? `<c>Date: " & _
"<b><upline><dotline>` + date(`now`) : `` ) + `</dotline> </b>` )"
	.EndUpdate()
End With
89
What should I set FormatPivotHeader to, to show "Report Generated on 7/9/2016 14:20" etc when the report is executed (ie the date and time will change)

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.FormatPivotHeader = "(iaggregate ? (`<b>` + caption + `</b> <off -6><font ;6>(` + lower(caggregate) + ')</off></font>') : caption) + `<r>ReportDate:" & _
" ` + date(`now`)"
	.EndUpdate()
End With
88
Is it possible to display aggregate result on parent rows as well

With Expivot1
	.BeginUpdate()
	.HeaderHeight = 22
	.DefaultItemHeight = 20
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "12[bold],0"
	With .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = Color.FromArgb(240,240,240)
	End With
	.PivotColumns = "sum(5)[nempty]/6"
	.IncludeExpandColumn = exontrol.EXPIVOTLib.IncludeExpandColumnEnum.exIncludeExpandColumn
	.DrawGridLines = exontrol.EXPIVOTLib.GridLinesEnum.exNoLines
	.ShowBranchRows = exontrol.EXPIVOTLib.ShowBranchRowsEnum.exBranchIncludeAggregate Or exontrol.EXPIVOTLib.ShowBranchRowsEnum.exBranchTree
	.EndUpdate()
End With
87
How do I show expanded/collapsed rows

With Expivot1
	.BeginUpdate()
	.HeaderHeight = 22
	.DefaultItemHeight = 20
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "12[bold],0"
	With .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = Color.FromArgb(240,240,240)
	End With
	.PivotColumns = "sum(5)[nempty]/6"
	.IncludeExpandColumn = exontrol.EXPIVOTLib.IncludeExpandColumnEnum.exIncludeExpandColumn
	.DrawGridLines = exontrol.EXPIVOTLib.GridLinesEnum.exNoLines
	.EndUpdate()
End With
86
How do I show expanded/collapsed columns

With Expivot1
	.BeginUpdate()
	.HeaderHeight = 22
	.DefaultItemHeight = 20
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	With .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = Color.FromArgb(240,240,240)
	End With
	.PivotColumns = "sum(5)[nempty]/12"
	.FormatPivotHeader = "(iaggregate ? ( caption + ` <r>[` + lower(caggregate) + `]` ) : caption)"
	.IncludeExpandColumn = exontrol.EXPIVOTLib.IncludeExpandColumnEnum.exIncludeExpandColumn
	.EndUpdate()
End With
85
Where you have say "Sum of ...." as the first row heading of the pivot are there and options to be able to change this text as a whole

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	With .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = Color.FromArgb(240,240,240)
	End With
	.PivotColumns = "sum(5)[nempty]/12"
	.FormatPivotHeader = "(iaggregate ? (`<b>` + caption + `</b> <off -6><font ;6>(` + lower(caggregate) + ' )') : caption)"
	.EndUpdate()
End With
84
How can I get the data column from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Expivot1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Expivot1.MouseMoveEvent
	With Expivot1
		Debug.Print( "DataColumn" )
		Debug.Print( .get_DataColumnFromPoint(-1,-1) )
	End With
End Sub

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.Refresh()
End With
83
Is there any way for the user to change the alignment at runtime (using excontextmenu)

' RClick event - Occurs once the user right clicks the control.
Private Sub Expivot1_RClick(ByVal sender As System.Object) Handles Expivot1.RClick
	Dim c,h
	With Expivot1
		h = .DataColumns.get_item(5).Alignment
		' Add 'exontrol.excontextmenu.dll(ExContextMenu.dll)' reference to your project.
		c = New exontrol.EXCONTEXTMENULib.excontextmenu()
		With c
			.FlatImageWidth = 0
			.ToString = "Alignment[align=1][dis],[group=0x71](Left[typ=2][grp=100][close=0][id=0],Center[typ=2][grp=100][close=0][id=1],Right[typ=2][grp" & _
	"=100][close=0][id=2])"
			.get_item(h).Checked = True
			h = .Select()
		End With
		With .DataColumns.get_item(5)
			.Alignment = h
			.HeaderAlignment = h
		End With
		.Refresh()
	End With
End Sub

With Expivot1
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .DataColumns.get_item(5)
		.Alignment = exontrol.EXPIVOTLib.AlignmentEnum.RightAlignment
		.HeaderAlignment = exontrol.EXPIVOTLib.AlignmentEnum.RightAlignment
	End With
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.Refresh()
End With
82
Is there any way for the user to change the alignment at runtime

' RClick event - Occurs once the user right clicks the control.
Private Sub Expivot1_RClick(ByVal sender As System.Object) Handles Expivot1.RClick
	With Expivot1
		Debug.Print( "The column gets aligned to the center" )
		With .DataColumns.get_item(5)
			.Alignment = exontrol.EXPIVOTLib.AlignmentEnum.CenterAlignment
			.HeaderAlignment = exontrol.EXPIVOTLib.AlignmentEnum.CenterAlignment
		End With
		.Refresh()
	End With
End Sub

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .DataColumns.get_item(5)
		.Alignment = exontrol.EXPIVOTLib.AlignmentEnum.RightAlignment
		.HeaderAlignment = exontrol.EXPIVOTLib.AlignmentEnum.RightAlignment
	End With
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.Refresh()
End With
81
How can I align a column to the right

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .DataColumns.get_item(5)
		.Alignment = exontrol.EXPIVOTLib.AlignmentEnum.RightAlignment
		.HeaderAlignment = exontrol.EXPIVOTLib.AlignmentEnum.RightAlignment
	End With
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.Refresh()
End With
80
How can I display the control's content on an single A3 paper size, when using PDF format
Dim var_CopyTo
With Expivot1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.get_item("positive").BackColor32 = &H100ff00
	.FormatConditionalAppearances.get_item("negative").BackColor32 = &H10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll()
	var_CopyTo = .get_CopyTo("C:\Temp\Preview.pdf|11.69 in x 16.53 in||single")
	Debug.Print( "Look for C:\Temp\Preview.pd file." )
	.EndUpdate()
End With
79
How can I display the control's content on an A3 paper size, when using PDF format
Dim var_CopyTo
With Expivot1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.get_item("positive").BackColor32 = &H100ff00
	.FormatConditionalAppearances.get_item("negative").BackColor32 = &H10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll()
	var_CopyTo = .get_CopyTo("C:\Temp\Preview.pdf|11.69 in x 16.53 in")
	Debug.Print( "Look for C:\Temp\Preview.pd file." )
	.EndUpdate()
End With
78
How can I export the control's content to a PDF document (method 1)
With Expivot1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.get_item("positive").BackColor32 = &H100ff00
	.FormatConditionalAppearances.get_item("negative").BackColor32 = &H10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll()
	.EndUpdate()
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.PrintExt = Expivot1
		.CopyTo("c:/temp/xtest.pdf")
	End With
	Debug.Print( "Look for C:\Temp\xtest.pdf file." )
	.EndUpdate()
End With
77
How can I export the control's content to a PDF document (method 2)
Dim var_CopyTo
With Expivot1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.get_item("positive").BackColor32 = &H100ff00
	.FormatConditionalAppearances.get_item("negative").BackColor32 = &H10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.ExpandAll()
	var_CopyTo = .get_CopyTo("c:/temp/xtest.pdf")
	Debug.Print( "Look for C:\Temp\xtest.pdf file." )
	.EndUpdate()
End With
76
Does / could the control have a read-only mode by where I could load the data and layout and just use the control to display it and allow the user to scroll around it / print it but not change it 
With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.DisplayFilterList = exontrol.EXPIVOTLib.FilterListEnum.exNoItems
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarReadOnly Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible
	.Refresh()
End With
75
Is it possible to edit the conditional-expression at runtime

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .FormatConditionalAppearances.Add("custom","custom","")
		.Bold = True
		.FontSize = 12
		.Expression = "value > 2000"
		.ContextEditExpression = True
	End With
	.PivotRows = "0"
	.PivotColumns = "sum(5)[custom]/12"
	.EndUpdate()
End With
74
How can I highlight values using EBN colors

With Expivot1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatConditionalAppearances.get_item("positive").BackColor32 = &H100ff00
	.FormatConditionalAppearances.get_item("negative").BackColor32 = &H10000ff
	.PivotRows = "0"
	.PivotColumns = "sum(5)[positive,negative]/12"
	.EndUpdate()
End With
73
How do I mark not-empty values in the chart

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	With .FormatConditionalAppearances.Add("nempty","not empty","")
		.Expression = "len(value) != 0"
		.BackColor = Color.FromArgb(240,240,240)
	End With
	.PivotColumns = "sum(5)[nempty]/12"
	.EndUpdate()
End With
72
How can I highlight negative and positive values in the same chart

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[negative,positive]/12"
	.EndUpdate()
End With
71
How can I highlight values that starts with a letter

With Expivot1
	.BeginUpdate()
	With .FormatConditionalAppearances.Add("f","starts with f","lower(value) startwith `f`")
		.Expression = "lower(value) startwith `f`"
		.Shadow = Color.FromArgb(1,0,0)
		.ShadowOffset = 0
	End With
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0[f]"
	.EndUpdate()
End With
70
How can I mark values greater than a value, 100 for instance

With Expivot1
	.BeginUpdate()
	With .FormatConditionalAppearances.Add("greater100",">100","value > 100")
		.Expression = "( dbl(value) != 0 ) ? (value > 100) : 0"
		.ForeColor = Color.FromArgb(255,0,0)
	End With
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[greater100,content=numeric]"
	.EndUpdate()
End With
69
How can I remove the Conditional context-menu

With Expivot1
	.BeginUpdate()
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatContent Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatAppearance Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric]"
	.EndUpdate()
End With
68
How do change the way the negative/positive numbers show when using conditional-format

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .FormatConditionalAppearances.get_item("negative")
		.BackColor = Color.FromArgb(0,0,0)
		.ForeColor = Color.FromArgb(128,128,128)
		.FontSize = 8
	End With
	With .FormatConditionalAppearances.get_item("positive")
		.BackColor = Color.FromArgb(0,0,0)
		.ForeColor = Color.FromArgb(1,0,0)
		.FontSize = 11
	End With
	.PivotRows = "0"
	.PivotColumns = "sum(5)[negative,positive,content=numeric]"
	.EndUpdate()
End With
67
How do I highlight the negative values with white color or black

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .FormatConditionalAppearances.get_item("negative")
		.BackColor = Color.FromArgb(1,0,0)
		.ForeColor = Color.FromArgb(255,255,255)
	End With
	.PivotRows = "0"
	.PivotColumns = "sum(5)[negative,content=numeric]"
	.EndUpdate()
End With
66
Does your control support conditional-format, so I can highlight certain values

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[negative,content=numeric]"
	.EndUpdate()
End With
65
How do I add a computed column/field, like VAT for instance (method 2)

With Expivot1
	.BeginUpdate()
	With .Aggregates
		.Add("vat19","sum","VAT 19%","VAT 19%").FormatValue = "value * 0.19"
		.Add("vat24","sum","VAT 24%","VAT 24%").FormatValue = "value * 0.24"
	End With
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric],vat19(5)[bold,content=numeric],vat24(5)[bold,content=numeric]"
	.EndUpdate()
End With
64
How do I add a computed column/field, like VAT for instance (method 1)

With Expivot1
	.BeginUpdate()
	With .FormatContents.Add("vat19","VAT 19%")
		.Expression = "len(value) ? ((value * 1.19) format '') : ''"
	End With
	With .FormatContents.Add("vat24","VAT 24%")
		.Expression = "len(value) ? ((value * 1.24) format '') : ''"
	End With
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[content=numeric],sum(5)[bold,content=vat19],sum(5)[bold,content=vat24]"
	.EndUpdate()
End With
63
How can I hide some values for instance negative values

With Expivot1
	.BeginUpdate()
	With .FormatContents.Add("hiden","hide negative")
		.Expression = "value < 0 ? `` : value"
	End With
	With .FormatContents.Add("hidep","hide positive")
		.Expression = "value > 0 ? `` : value"
	End With
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)[bold],sum(5)[content=hiden],sum(5)[content=hidep]"
	.EndUpdate()
End With
62
How can I decode the Layout property

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.Layout = "Columns =1;C0.Width = 64"
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		Debug.Print( .get_Decode64TextW(Expivot1.Layout) )
	End With
	.EndUpdate()
End With
61
How can I specify the sorting type, so the column gets sorted as numeric for instance

With Expivot1
	.Import("1,1#11,11#101,101","eor='#' eof=',' hdr=0")
	With .DataColumns.get_item(0)
		.Caption = "Numeric"
		.SortType = exontrol.EXPIVOTLib.SortTypeEnum.SortNumeric
	End With
	.DataColumns.get_item(1).Caption = "String (default)"
	.PivotRows = "0"
	.Refresh()
End With
60
How can I disable the control's context menu
With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible
End With
59
How do I get the captions of the columns
With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	Debug.Print( .DataColumns.Count )
	Debug.Print( .DataColumns.get_item(0).PivotCaption )
	Debug.Print( .DataColumns.get_item(0).Caption )
	Debug.Print( .DataColumns.get_item(1).PivotCaption )
	Debug.Print( .DataColumns.get_item(1).Caption )
End With
58
How can I specify the default-format for a specified column, so it always shows as numeric for instance
With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .DataColumns.get_item("Freight")
		.DefaultFormatContent = "numeric"
		.DefaultFormatAppearances = "bold"
		.SortOrder = exontrol.EXPIVOTLib.SortOrderEnum.SortAscending
		.SortType = exontrol.EXPIVOTLib.SortTypeEnum.SortNumeric
	End With
	.PivotTotalDefaultFormatContent = "currency"
	.PivotTotalDefaultFormatAppearances = "strikeout,bold"
	.PivotRows = "0"
	.PivotColumns = "sum(5)[bold,content=numeric]"
	.PivotTotals = "sum[strikeout,bold,content=currency]"
	.PivotColumnsFloatBarVisible = exontrol.EXPIVOTLib.PanelVisibleEnum.exPanelVisible
	.Refresh()
End With
57
How can I display the percentage column

With Expivot1
	.FormatContents.Add("percent","value + `%`")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "5[content=percent]"
	.Refresh()
End With
56
How do I change the name for months in the drop-down filter window (localization)

With Expivot1
	Debug.Print( .get_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateMonths) )
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateMonths,"Ianuarie Februarie Martie Aprilie Mai Iunie Iulie August Septembrie Octombrie Noiembrie Decembrie")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAll,"(Toate)")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarBlanks,"(Gol)")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarNonBlanks,"(Plin)")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarFilterForCaption,"Filtreaza:")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateTodayCaption,"Azi")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateWeekDays,"D L Ma Mi J V S")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarExclude,"Exclud")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exColumnsFloatBar,"Coloane")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarAnd,"si")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarDate,"Data:")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateTitle,"Data")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarDateTo,"la")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarNot,"nu")
	.set_Description(exontrol.EXPIVOTLib.DescriptionTypeEnum.exFilterBarOr,"sau")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DataColumns.get_item("OrderDate").SortType = exontrol.EXPIVOTLib.SortTypeEnum.SortDate
	.PivotRows = "9"
	.Refresh()
End With
55
How can I scale and print programmatically the pivot table, to fit on one axis eg FitPageHeight but infinite width etc
With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "6"
	.PivotColumns = "sum(5)/3"
	.Refresh()
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.Options = "FitToPage = x 5"
		.PrintExts = Expivot1
		.Preview()
	End With
End With
54
How can I scale and print programmatically the pivot table, to fit on one axis eg FitPageWidth but infinite height etc
With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "6"
	.PivotColumns = "sum(5)/3"
	.Refresh()
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.Options = "FitToPage = 5 x"
		.PrintExts = Expivot1
		.Preview()
	End With
End With
53
How can I get the column from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Expivot1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Expivot1.MouseMoveEvent
	With Expivot1
		Debug.Print( .get_ColumnFromPoint(-1,-1) )
	End With
End Sub

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.Refresh()
End With
52
How can I get the value from the cursor
' MouseMove event - Occurs when the user moves the mouse.
Private Sub Expivot1_MouseMoveEvent(ByVal sender As System.Object,ByVal Button As Short,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Expivot1.MouseMoveEvent
	With Expivot1
		Debug.Print( .get_ValueFromPoint(-1,-1) )
	End With
End Sub

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.Refresh()
End With
51
How can I specify a column to display HTML format

With Expivot1
	.Import("Bold <b>1,Bold <b>2#Bold <b>3,Bold <b>4#Bold <b>5,Bold <b>6","eor='#' eof=',' hdr=0")
	.DataColumns.get_item(0).HTML = True
	.DataColumns.get_item(1).HTML = True
	.PivotRows = "0"
	.Refresh()
End With
50
Does your control supports scrolling by touching the screen

Dim rs
With Expivot1
	rs = New ADODB.Recordset()
	With rs
		.Open("Data","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.accdb",3,3)
	End With
	.DataSource = rs
	.AutoDrag = exontrol.EXPIVOTLib.AutoDragEnum.exAutoDragScrollOnShortTouch Or exontrol.EXPIVOTLib.AutoDragEnum.exAutoDragScroll
End With
49
How can I specify programatically the width of the pivot column ( first column )

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.Layout = "Columns =1;C0.Width = 64"
	.EndUpdate()
End With
48
How can I show the total of each row, when columns are shown as expanded

With Expivot1
	.BeginUpdate()
	.IncludeExpandColumn = exontrol.EXPIVOTLib.IncludeExpandColumnEnum.exIncludeExpandColumn
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
	.EndUpdate()
End With
47
How can I prevent grouping by a specified column
With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DataColumns.get_item("Freight").AllowGroupBy = exontrol.EXPIVOTLib.AllowGroupByEnum.exGroupByNone
End With
46
How can I sort alphabetically the columns to be displayed in the context menu/floating panel

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarContextSortAscending Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatContent Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatAppearance Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible
	.PivotColumnsSortOrder = exontrol.EXPIVOTLib.PivotColumnsSortOrderEnum.exPivotColumnsAscending
	.PivotColumnsFloatBarVisible = exontrol.EXPIVOTLib.PanelVisibleEnum.exPanelVisible
End With
45
How can I prevent dropping data to the control
With Expivot1
	.AllowDrop = False
End With
44
Is it possible to allow incremental filtering on drop down filter window too, as I can on the control menus

Dim var_DisplayFilterList
With Expivot1
	var_DisplayFilterList = .DisplayFilterList
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.DisplayFilterList = exontrol.EXPIVOTLib.FilterListEnum.exHideFilterPattern Or exontrol.EXPIVOTLib.FilterListEnum.exFilterListDefault
End With
43
How can I prevent showing the Filter For field in the drop down filter window

Dim var_DisplayFilterList
With Expivot1
	var_DisplayFilterList = .DisplayFilterList
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.DisplayFilterList = exontrol.EXPIVOTLib.FilterListEnum.exHideFilterPattern Or exontrol.EXPIVOTLib.FilterListEnum.exFilterListDefault
End With
42
How can I display the numeric columns only when selecting a new aggregate, like SUM

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0[bold]"
	.PivotColumns = "sum(5)/12,count(5)/12"
	.DataColumns.get_item("Freight").SortType = exontrol.EXPIVOTLib.SortTypeEnum.SortNumeric
End With
41
How can I add a value column

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12"
End With
40
I would like to always have the subtotals in the same row of the "father row". Could that be done

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0[bold],2"
	.PivotColumns = "sum(5)/12,count(5)/12"
	.ShowViewCompact = exontrol.EXPIVOTLib.ShowViewCompactEnum.exViewCompactAggregates Or exontrol.EXPIVOTLib.ShowViewCompactEnum.exViewCompact
	.PivotTotals = "/sum,sum(0)"
End With
39
Is there any way, when I change the filter of the column, it broadcast the filter to the other pivot columns that were duplicated

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0,2"
	.ShowBranchRows = exontrol.EXPIVOTLib.ShowBranchRowsEnum.exBranchCompact
	.PivotColumns = "sum(5)/12[filter='gBpNxjNh1MhlBoKNhpOZ0hJVNxpOhlMggKBhMZrMJnMoAgI='],count(5)/12[filter='gBpNxjNh1MhlBoKNhpOZ0hJVNxpOhlMggKBhMZ" & _
"rMJnMoAgI=']"
	.ShowViewCompact = exontrol.EXPIVOTLib.ShowViewCompactEnum.exViewCompactKeepSettings Or exontrol.EXPIVOTLib.ShowViewCompactEnum.exViewCompact
End With
38
How can I summarize more fields in the same cell

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0,2"
	.ShowBranchRows = exontrol.EXPIVOTLib.ShowBranchRowsEnum.exBranchCompact
	.PivotColumns = "sum(5)/12,count(5)/12"
	.ShowViewCompact = exontrol.EXPIVOTLib.ShowViewCompactEnum.exViewCompact
End With
37
How do I programmatically group by rows, in a compact way, no hierarchy lines

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0,2"
	.ShowBranchRows = exontrol.EXPIVOTLib.ShowBranchRowsEnum.exBranchCompact
End With
36
How do I programmatically group by rows

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0,1,2"
	.LinesAtRoot = exontrol.EXPIVOTLib.LinesAtRootEnum.exLinesAtRoot
	.HasLines = exontrol.EXPIVOTLib.HierarchyLineEnum.exSolidLine
End With
35
How do I programmatically group by columns

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)/12;6"
End With
34
How can I hide the add new button on the pivot bar

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarHideAddNew Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatContent Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatAppearance Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible
End With
33
Is it possible to show the data that generated the result, when double clicking the row

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0[italic]"
	.PivotColumns = "count(0)[underline]"
	.PivotTotals = "count[bold,strikeout]"
	.ShowDataOnDblClick = True
	.EndUpdate()
End With
32
Does your control support subscript or superscript, in HTML captions

With Expivot1
	.HeaderHeight = 22
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DataColumns.get_item("ShipCountry").Caption = "ShipCountry<font ;7><off 6><sha ;;0>subscript"
	.DataColumns.get_item("ShipRegion").Caption = "ShipRegion<font ;7><off -6><sha ;;0>superscript"
	.Refresh()
End With
31
Is it possible to define a different background color for the pivot bar

With Expivot1
	.set_Background(exontrol.EXPIVOTLib.BackgroundPartEnum.exPivotBarBackColor,Color.FromArgb(240,240,240))
End With
30
How can I display an icon/image to Content sub-menu

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.FormatContents.get_item("numeric").Name = "<img>1</img> Numeric"
	.PivotRows = "5[content=numeric]"
End With
29
How can I change the selection background in the control's context menu

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.set_Background(exontrol.EXPIVOTLib.BackgroundPartEnum.exSelBackColorFilter,Color.FromArgb(255,0,0))
End With
28
How can I display the column as date in a long format

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatContents.Add("longdate","longdate(date(value))")
	.PivotRows = "9[content=longdate]"
End With
27
Is it possible to display the column in upper-case

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatContents.Add("upper","upper(value)")
	.PivotRows = "0[content=upper]"
End With
26
How can I programatically bold a column

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0[bold]"
End With
25
How can I display the total with a different foreground color

With Expivot1
	.FormatAppearances.Add("fore").ForeColor = Color.FromArgb(255,0,0)
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)"
	.PivotTotals = "sum[fore,bold]"
End With
24
How can I display the total with a different background color/ebn 

With Expivot1
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.FormatAppearances.Add("back").BackColor32 = &H1000000
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)"
	.PivotTotals = "sum[back]"
End With
23
How can I display the total with a solid background color

With Expivot1
	.FormatAppearances.Add("back").BackColor = Color.FromArgb(240,240,240)
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumns = "sum(5)"
	.PivotTotals = "sum[back]"
End With
22
Is it possible to change the "bold" caption in the control's context menu

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatAppearances.get_item("bold").Name = "Ingrosat"
End With
21
Is it possible to show no Exclude field in the filter window

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DisplayFilterList = exontrol.EXPIVOTLib.FilterListEnum.exShowCheckBox Or exontrol.EXPIVOTLib.FilterListEnum.exSortItemsAsc
End With
20
How can I prevent showing the drop down filter button

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.DisplayFilterList = exontrol.EXPIVOTLib.FilterListEnum.exNoItems
End With
19
How do I get the count of positive values only

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.Aggregates.Add("positive","sum").FormatValue = "value < 0 ? 0 : 1"
	.PivotRows = "0"
	.PivotColumns = "positive(5)"
End With
18
How do I get the sum for negative values only

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.Aggregates.Add("negative","sum").FormatValue = "value < 0 ? value : 0"
	.PivotRows = "0"
	.PivotColumns = "negative(5)"
End With
17
My data stores the data as strings, is it possible to load the data using Import method

With Expivot1
	.Import("'string 1';'string 2'#'string 3';'string 4'","str=`'` eor='#' eof=';' hdr=0")
End With
16
Is it possible to load data using different separators

With Expivot1
	.Import("item 1;item 2#item 3;item 4","eor='#' eof=';' hdr=0")
End With
15
Is it possible to align a column

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .DataColumns.get_item(0)
		.Alignment = exontrol.EXPIVOTLib.AlignmentEnum.RightAlignment
		.HeaderAlignment = exontrol.EXPIVOTLib.AlignmentEnum.RightAlignment
	End With
	.Refresh()
End With
14
How can I change by code the column/rows background color

With Expivot1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.FormatAppearances.Add("aka").BackColor32 = &H1000000
	.PivotRows = "0[aka]"
	.EndUpdate()
End With
13
How can I apply by code any appearance to my list

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0[italic]"
	.PivotColumns = "count(0)[underline]"
	.PivotTotals = "count[bold,strikeout]"
	.EndUpdate()
End With
12
How can I display an icon instead SUM/Total field

With Expivot1
	.BeginUpdate()
	.Images("gBJJgBggAAwAAgACEKAD/hz/EMNh8TIRNGwAjEZAEXjAojJAjIgjIBAEijUlk8plUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9oEEwGBwWDwmFw2Hw9+xUsxGNx2Px+LyUnyGVy2VyeZAGNjIJjITjIb0OjjGi0ukAAV" & _
"jILzmayWtAGejCvjLh2u3jG23O4ACx1ew11+zEYGsZZsZUe/wkZ4sYZvD4PCy8kjAzjLFjKd5WDjIz6HRvnTwUZGMZX8ZTPb8XU8Hh9cFjALjKVjK5jIv9/w9t78WdjJ" & _
"IoyWr7sKjIWu+/a8Og2QAEajLaIxAzlwhB0DwQuzoECjJWw1DiMQ3D0OgAQMKwsuj8xOy0SrzFEWMdFUExbGMCRfC8ZRswMaLsiofJVHiOo+kKRs2lL2Jsh8cyQo6Ag=" & _
"=")
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .Aggregates.get_item("sum")
		.Name = "<img>1</img> Sum"
		.Caption = "<img>1</img>"
	End With
	.PivotColumnsFloatBarVisible = exontrol.EXPIVOTLib.PanelVisibleEnum.exPanelVisible
	.FormatPivotHeader = "iaggregate ? (caggregate + (iaggregate != 5 ? ' ' : '') + caption) : caption"
	.FormatPivotTotal = "caggregate"
	.PivotRows = "0"
	.PivotColumns = "sum(5)"
	.PivotTotals = "sum,count"
	.EndUpdate()
End With
11
How can I change the caption to be displayed when dragging an aggregate function

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotColumnsFloatBarVisible = exontrol.EXPIVOTLib.PanelVisibleEnum.exPanelVisible
	.FormatPivotHeader = "(iaggregate ? ('<b>' + upper(caggregate) + '</b> of ' + caption) : caption)"
	.PivotRows = "0"
	.PivotColumns = "sum(5)"
	.PivotTotals = "sum,count"
	.EndUpdate()
End With
10
I am using Import method, just wondering if I can rename the columns

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	With .DataColumns.get_item(0)
		.Caption = "New Caption"
		.PivotCaption = "New Pivot Caption"
	End With
	.Refresh()
End With
9
Does your control support Fit-To-Page Print and Print Preview

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0,1,2"
	.ExpandAll()
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.Options = "FitToPage = On"
		.PrintExts = Expivot1
		.Preview()
	End With
End With
8
How can I print the control

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0,1,2"
	.ExpandAll()
	' Add 'exontrol.exprint.dll(ExPrint.dll)' reference to your project.
	With New exontrol.EXPRINTLib.exprint()
		.PrintExts = Expivot1
		.Preview()
	End With
End With
7
How can I hide the pivot bar (hide completly)

With Expivot1
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatContent Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatAppearance Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoFit Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable
End With
6
How can I hide the pivot bar (auto-hide)

With Expivot1
	.PivotBarVisible = exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowResizeColumns Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowUndoRedo Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoUpdate Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatContent Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowFormatAppearance Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAllowValues Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarAutoHide Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarShowTotals Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarSizable Or exontrol.EXPIVOTLib.PivotBarVisibleEnum.exPivotBarVisible
End With
5
How can I count and get the total of a specified column

With Expivot1
	.BeginUpdate()
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotColumnsFloatBarVisible = exontrol.EXPIVOTLib.PanelVisibleEnum.exPanelVisible
	.PivotRows = "0"
	.PivotColumns = "sum(5)"
	.PivotTotals = "sum,count"
	.EndUpdate()
End With
4
How can I add show the columns once I grouped a column

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0"
	.PivotColumnsFloatBarVisible = exontrol.EXPIVOTLib.PanelVisibleEnum.exPanelVisible
End With
3
How can I programatically group the columns

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
	.PivotRows = "0:D"
End With
2
Is it possible to load data from a data source

Dim rs
With Expivot1
	rs = New ADODB.Recordset()
	With rs
		.Open("Data","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExPivot\Sample\Access\sample.accdb",3,3)
	End With
	.DataSource = rs
End With
1
How can I load data

With Expivot1
	.Import("C:\Program Files\Exontrol\ExPivot\Sample\data.txt")
End With